home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 4: GNU Archives / Linux Cubed Series 4 - GNU Archives.iso / gnu / gawk-3.000 / gawk-3 / gawk-3.0.0 / test / prmreuse.awk < prev    next >
Encoding:
AWK Script  |  1995-11-02  |  188 b   |  15 lines
  1. # from Pat Rankin, rankin@eql.caltech.edu
  2.  
  3. BEGIN { dummy(1); legit(); exit }
  4.  
  5. function dummy(arg)
  6. {
  7.     return arg
  8. }
  9.  
  10. function legit(         scratch)
  11. {
  12.     split("1 2 3", scratch)
  13.     return ""
  14. }
  15.